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ALTO MESA BOOT LOADER - MBoot.aSffl 
LOADED ALMOST ANYWHERE AND EXECUTED 
R. Johnsson - 20 Feb 76 
Last edited March 20. 1978 5:40 PM 

.TITL BOOT 
.TXTM B 

.ENT MBOOT 
.ENT SwatFlag 

.SREL 

MBOOT: BOOT 
SwatFlag: BREAK 

.NREL 

.GET "Mesa-NovaDef s.asm" 



;ACO is pointer to argument list 



BOOT: 



BLTLOOP 



C3: 



DOIT: 



;CURFIX: 



MOV 


0 






LDA 


3 


0.2 ; 


POINTER TO BOOTMAP 


LDA 


0 


0.3 ; 


SNl 


STA 


0 


DCBl+snl 




STA 


0 


DCB2+snl 




LDA 


0 


1.3 




STA 


0 


DCBl+sn2 ' 




STA 


0 


DCB2+sn2 




LDA 


0 


5,3 ; 


first page 


STA 


0 


DCB2+pagenumber 




NEG 


0 


0 


-1 


COM 


0 


0 




STA 


0 


DCBl+pagenumber 




LDA 


0 


C6 




ADD 


3 


0 




STA 


0 


PGPTR 




LDA 


0 


1.2 




STA 


0 


DCBl+diskaddress 




LDA 


0 


2,2 


initial State 


STA 


0 


currentState 




LDA 


0 


C3 




ADO 


0 


2 




LDA 


0 


0.2 




MOV 


0 


0 SNR 




JMP 


DOIT 




LDA 


1 


1,2 




LDA 


3 


2,2 




BLT 




: do some 


BLTs 


JMP 
3 


BLTLOOP 




DIR 




; NO MORE 


INTERRUPTS 


SUB 


0 


0 ; CLEAR SOME LOCATIONS 


LDA 


2 


PAGEl ; POINTER 


TO PAGE 1 LOCATIONS 


STA 


0 


DISP,2 iDISPLAY 


OFF 


STA 


0 


IWW.2 :WAKEUPS 


WAITING 


JSR 


.+1 : RELOCATE 


CURSOR POINTERS 






LDA 1 POCURSORMl 




ADD 


3 


1 




STA 


1 


POCURSORMl 




LDA 


1 


PMCURSORMl 




ADD 


3 


1 




STA 


1 


PMCURSORMl 




LDA 


0 


PCURSORMl 




LDA 


1 


PMCURSORMl 




LDA 


3 


CN16 




BLT 




iSAVE OLD 


CURSOR 


LDA 


0 


PMCURSORMl 




LDA 


1 


CUREND 




LDA 


3 


CN16 





RECORD 
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; BLT ; INSERT MESA CURSOR 

: NOW FIXUP THE ADDRESSES IN THE DISK BLOCKS 



JSR .+1 



F: 



MOV 


3 


1 

X 


• AnnR DF FTXIIP TCi API 


LDA 


2 


DCB2 


• OFF^FT DF FTR^T RPR T<\ TM ^FPfiMR 


LDA 


3 


nPRl 


• ANn V/TPF VFR^nA 


ADD 


1 


C 




ADD 


1 


o 


1 InL riAUrO 


STA 


2 






STA 


3 






NOW FIX THE 


up nnpR 


MiMU LnDtL nUUiMlOOild 


LDA 


0 


3 2 




ADD 


1 


0 




STA 


0 


3 2 




LDA 


0 


4 2 




ADD 


1 


0 




STA 


0 


4 2 




LDA 


0 


3 3 




ADD 


1 


0 




STA 


0 


3 3 




LDA 


0 


4 3 




ADD 


1 


0 




STA 


0 


4 3 




START THE 


DISK AND 


JUMP INTO LOOP 


LDA 


0 


@PGPTR 


; pick up first data address 


STA 


0 


data 2 


; STORE IT IN DCS 


STA 


2 


0PDBLK 




JMP 


ADVANCE 





; DCBl AND DCB2 ARE THE DISK CONTROL BLOCKS 

; layout of disk command block 
next = 0 
status « 1 
command = 2 
header « 3 
label = 4 
data = 5 

normal interrupts » 6 
error interrupts = 7 
unused = 10 
diskaddress = 11 
; these hang off the end but are not part of the command 
prev = 12 
blank = 13 
numchars = 14 
pagenumber « 15 
version = 16 
snl = 17 
sn2 « 20 

DCBl; DCB2-F ;THIS IS THE FIRST DCB'S LINK WORD 



0 ; STATUS 

44020 -.COMMAND, READ header and data, check label 
DHDR-F ; HEADER 

DCB2+diskaddress~F ;THE LABEL IS READ IN ON TOP OF THE HEADER 



0 


:DATA POINTER IS MODIFIED IN OPERATION 


0 
0 


; INTERRUPTS ARE INACTIVE 


0 


; UNUSED 


0 


;DISK ADDRESS. ALSO THE FIRST LOCATION FOR OTHER DCB'S LABEL 


0 


;prev 


0 


; bl ank 


0 


; numchars 


0 


;page number 


0 


; version 
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DCB2: 



;SN1 
;SN2 

ITHIS IS THE SECOND DCB 
;STATUS 
•.COMMAND 
;HEADER 



; DATA 



0 
0 

DCBl-F 
0 

44020 
DHDR-F 
DCBl+diskaddress-F 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



; LABEL 



DHDR: 

CN16: 
C6: 

PAGEl: 
DISP = 
DIW= 
IWW= 
IACTW= 

PDBLK 
ERMSK 
PGPTR 



;DISK ADDRESS FOR SECOND DCB. LABEL FOR FIRST DCB 
; prev 
;b1ank 
; numchars 
ipage number 
•.version 
;SN1 
;SN2 

.BLK 2 ;read header here 

-16. 
6 

400 

420- 400 

421- 400 

452- 400 

453- 400 

521 
367 
0 



displ ay 

display vertical interrupt 
wakeups waiting 
active interrupts 

disk 

error mask for disk transfer 
pointer to next Page Table entry 



450 



CUREND: 
PCURSORMl: 430 

POCURSORMl: OLDCURSOR-CURFIX-1 
PMCURSORMl: MESACURSOR-CURFIX-1 

OLDCURSOR: .BLK 20 ; 
MESACURSOR: 

104760 

154400 

124400 

104700 

104400 

104400 

104760 

000000 

003416 

004221 

004021 

003437 

000221 

004221 

003421 

000000 



end of cursor for BLT 



save the entry cursor 



MAIN LOOP OF THE LOADER. 

ENTER AT ADVANCE WITH AC2= POINTER TO DCBl, ACS* POINTER TO DCB2. 
THE DISK HAS BEEN STARTED on DCBl. 

; AT SETUP ACO HAS ADDRESS FOR NEXT TRANSFER, AC2=P0INTER TO 
; NEXT DCB, AC3=P0INTER TO ACTIVE DCB 
RETRYCOUNT: 6 



SETUP: STA 0 data 2 
SUB 0 0 

STA 0 status 2 
STA 0 prev. 3 
STA 0 blank»3 
STA 0 numchars, 3 
ISZ pagenumber.S 
JMP .+1 



; ADDRESS OF NEXT TRANSFER 
; CLEAR STATUS OF NEXT 

; label of next transfer cleared for check 



bump page number 
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IsSZ pagenumber,3 ; by 2 

LDA 0 C6 

STA 0 RETRYCOUNT 
RETRY: LDA 1 ERMSK 



KWAIT: 



ADVANCE: 



C2: 

NewDa: 



LDA 0 status 3 


; WAIT FOR DISK TO STOP 


MOV 0 0 SNR 




JMP KWAIT 




AND 0 1 SZR 


; CHECK FOR ERROR 


JMP DSKERR 


; GOT ONE 


ISZ 0CUREND 


; COUNT IN CURSOR 




: never skip 


sta 1 diskaddress,3 


Ida 0 NewDa 




sta 1 NewDa 




snz 0 0 


; if changing files 


jmp ADVANCE 


sta 0 diskaddres 


S.2 


sta 2 QPDBLK 




sta 2 next, 3 




Ida 0 pagenumber 


.3 


neg 0 0 




com 0 0 


; subtract 1 


sta 0 pagenumber 


,2 ; update items for next check 


Ida 1 snl,3 




sta 1 snl,2 




Ida 1 sn2.3 




sta 1 sn2.2 




MOV 2 0 


; EXCHANGE CURRENT AND INACTIVE DOB 


MOV 3 2 




MOV 0 3 


; AC3=P0INTER TO ACTIVE DCB 


LDA 0 0.2 


; CHECK LINK OF DCB JUST FINISHED 


MOV 0 0 SNR 


; TEST FOR LAST PAGE 


JMP STPR 




LDA 0 diskaddress,3 ; CURRENT DISK ADDRESS 


STA 0 OPGPTR 


; REPLACE OLD CORE ADDRESS 


ISZ PGPTR 




LDA 0 0PGPTR 




MOVZR 0 0 SZC 


; TEST FOR FILE CHANGE 


JMP ChangeFile 




MOVZL 0 0 SZR 


; test for end of list 


JMP SETUP 


; MORE TO DO 


STA 0 0 3 


; CLEAR DCB CHAIN LINK 


JMP SETUP 

2 
0 





ChangeFile: ; ACO has new file page number 

Ida 1 C2 
sub 1 0 

sta 0 pagenumber ,3 ; new page-2 number to label 

isz PGPTR 
sub 0 0 

sta 0 next, 3 ; break the chain 

sta 0 snl,3 

sta 0 sn2,3 ; zero the serial number 

Ida 0 §PGPTR 

sta 0 NewDa ; new disk address 

isz PGPTR 

Ida 0 6PGPTR ; first memory address for new file 

jmp SETUP 

STPR: 

; LDA 0 POCURSORMl 

; LDA 1 CUREND 

; LDA 3 CN16 

; BLT ; RESTORE CURSOR 

BREAK: JMP .+1 ; set to swat break (#77400) to break before starting Mesa 

JMP Emulate 



SWATTrap: 567 
DSKERR: DSZ RETRYCOUNT 
JMP TryAgain 
JSR DSKERRl 
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.TXT "Disk error reading image file" 
DSKERRl: MOV 3 1 

; does a CallSwat 



;clear active status 
irestart disk 



JMP 


16.3 


SUB 


0 0 


STA 


0 1,3 


STA 


3 0PDBLK 


JMP 


RETRY 


JMP 


BOOT+200 



; Error if code too big 



.END; 



